home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 1
/
MacMania 1.toast
/
Educational
/
Misc.
/
Class Administrator
/
Helper
/
stack.txt
< prev
Wrap
Text File
|
1990-07-06
|
4KB
|
154 lines
-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x4000 (can't delete)
-- protect password hash: 0
-- maximum user level: 2 (typing)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 10
-- first background id: 2727
-- card count: 21
-- first card id: 3059
-- list block id: 8434
-- print block id: 3558
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 58560 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startUp
getHomeInfo
pass startUp -- to a startUp XCMD, if present
end startUp
on resume
getHomeInfo
pass resume -- to a resume XCMD, if present
end resume
on getHomeInfo
global stacks,applications,documents,userName
set lockScreen to true
set lockMessages to true
push this card
go to card "User Preferences" of stack "Home"
put card field "User Name" into userName
set userLevel to card field "User Level"
set powerKeys to the hilite of button "Power Keys"
set blindTyping to the hilite of button "Blind Typing"
put field "paths" of card "stacks" into stacks
put field "paths" of card "applications" into applications
put field "paths" of card "documents" into documents
pop card
set lockScreen to false
set lockMessages to false
end getHomeInfo
on searchScript pattern,stackName -- search all scripts of a stack
set lockMessages to true
if stackName is not empty then go to stack stackName
if the script of this stack contains pattern
then edit script of this stack
repeat with i = 1 to the number of bkgnds
go to card 1 of bkgnd i
if the script of this bkgnd contains pattern
then edit script of bkgnd
repeat with j = 1 to the number of bkgnd buttons
if the script of bkgnd button j contains pattern
then edit script of bkgnd button j
end repeat
repeat with j = 1 to the number of bkgnd fields
if the script of bkgnd field j contains pattern
then edit script of bkgnd field j
end repeat
end repeat
repeat with i = 1 to the number of cards
go card i
if the script of this card contains pattern
then edit script of this card
repeat with j = 1 to the number of card buttons
if the script of card button j contains pattern
then edit script of card button j
end repeat
repeat with j = 1 to the number of card fields
if the script of card field j contains pattern
then edit script of card field j
end repeat
end repeat
set lockMessages to false
end searchScript
On EnterKey
if the tool is "browse tool"
then choose button tool
else if the tool is "button tool"
then choose field tool
else choose browse tool
end EnterKey
on openStack
set userlevel to 2
hide menubar
end openStack